home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
zendisk1.zip
/
LST8-14.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-02-15
|
495b
|
23 lines
;
; *** Listing 8-14 ***
;
; Adds AL to each element in an array until the result
; of an addition exceeds 7Fh.
; Uses PUSHF and POPF.
;
jmp Skip
;
Data db 999 dup (0),7fh
;
Skip:
mov bx,offset Data
mov al,2 ;we'll add 2 to each array element
call ZTimerOn
AddLoop:
add [bx],al ;add the value to this element
pushf ;save the sign flag
inc bx ;point to the next array element
popf ;get back the sign flag
jns AddLoop ;do the next element, if any
call ZTimerOff